﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class TipospagosFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As TipospagosBE
        Dim tmpTipospagos As TipospagosBE = New TipospagosBE()
        Try
            With tmpTipospagos
                .Descripcion = convertDTFromDb.ConvertString(dr.Item("Descripcion"))
                .IdTipoPago = convertDTFromDb.ConvertLong(dr.Item("IdTipoPago"))
            End With
            Return tmpTipospagos
        Catch ex As Exception
            Throw
        Finally
            tmpTipospagos = Nothing
        End Try
    End Function
End Class
